COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN
C00003 ENDMK
C⊗;
BEGIN

NEW A,B, C;
SPECIAL D, E , F;

EXPR FOO(L); PRINT(L);

EXPR FOO1(); PRINT 'OK;

EXPR FOO11(L,M);
 PRINT NEQ(L,M);

EXPR FOO2(L,M);
  FOR NEW I IN L DO PRINT CONS(L,M);

EXPR FOO22(L,M);
  WHILE ¬(I = M) DO PRINT(L←CDR L);

EXPR FOO3(L,M);
  BEGIN NEW G;
   G←CAR M;
   PRINT L;
   RETURN G;
  END;

END.